home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
twars.arc
/
PLANLIST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-28
|
1KB
|
51 lines
program looksect(input,output);
type
user = record
fa : string[41];
fareal : string[41];
fb,fc,fd,fe,ff,fg : integer;
fh,fi,fj,fk,fl,fr,fp : integer;
fm,fo,fq,ft,fv : integer;
CREDITS : real;
end;
var
outp : text;
pointer : integer;
userf : file of user;
usert : user;
userrec : user;
ans : char;
sect : integer;
done : boolean;
newff,
newfg,
newfo : integer;
begin
assign(userf,'twdata.dat');
reset(userf);
assign(outp,'Planlist');
rewrite(outp);
clrscr;
done := FALSE;
sect := 1;
while sect < 1000 do
begin
seek(userf,sect+151);
read(userf,userrec);
if userrec.fo <> 0 then
begin
seek(userf,1551+userrec.fo);
read(userf,usert);
writeln(outp,'Sector # ',sect,' contains the planet# ',userrec.fo,' ',usert.fa);
end;
sect := sect + 1;
end;
close(userf);
close(outp);
end.